﻿
Imports System.IO

Public Class img
    Inherits xhtmlControl

    Protected Overrides Function availableAttribute(ByVal key As String) As Boolean
        Return attributesCollection.common(key) OrElse _
                attributesCollection.alt(key) OrElse _
                attributesCollection.height(key) OrElse _
                attributesCollection.longdesc(key) OrElse _
                attributesCollection.src(key) OrElse _
                attributesCollection.width(key) OrElse _
                attributesCollection.usemap(key) OrElse _
                attributesCollection.name(key)
    End Function

    Public Sub New(Optional ByVal buff As Stream = Nothing)
        MyBase.New(buff, "img")
    End Sub
End Class

Public Class area
    Inherits xhtmlControl

    Protected Overrides Function availableAttribute(ByVal key As String) As Boolean
        Return attributesCollection.common(key) OrElse _
                attributesCollection.accesskey(key) OrElse _
                attributesCollection.alt(key) OrElse _
                attributesCollection.coords(key) OrElse _
                attributesCollection.href(key) OrElse _
                attributesCollection.nohref(key) OrElse _
                attributesCollection.shape(key) OrElse _
                attributesCollection.tabindex(key) OrElse _
                attributesCollection.onblur(key) OrElse _
                attributesCollection.onfocus(key) OrElse _
                attributesCollection.target(key)
    End Function

    Public Sub New(Optional ByVal buff As Stream = Nothing)
        MyBase.New(buff, "area")
    End Sub
End Class

Public Class map
    Inherits xhtmlControl

    Protected Overrides Function availableAttribute(ByVal key As String) As Boolean
        Return attributesCollection.i18n(key) OrElse _
                attributesCollection.events(key) OrElse _
                attributesCollection.class(key) OrElse _
                attributesCollection.id(key) OrElse _
                attributesCollection.title(key) OrElse _
                attributesCollection.name(key)
    End Function

    Public Sub New(Optional ByVal buff As Stream = Nothing)
        MyBase.New(buff, "map")
    End Sub
End Class